home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / bob_m.has < prev    next >
Encoding:
Text File  |  1998-09-07  |  8.0 KB  |  393 lines
  1. *---------------------------------------
  2. *
  3. *    â{âuê┌ô«
  4. *
  5. *    by Shiroh Nakaya
  6. *
  7. *---------------------------------------
  8.  
  9.     .cpu    68000
  10.  
  11.     .include    OSU.H
  12.  
  13.     .xdef    bob_init
  14.     .xref    pcg_data
  15.     .xref    pal_data
  16.     .xref    adpcm_data
  17.  
  18.     .text
  19.     .even
  20. *---------------------------------------
  21. *    Åëè·ë╗
  22. *
  23. bob_init:
  24.     move.w    #6,C_H_X(a1)
  25.     move.w    #32,C_H_Y(a1)
  26.     move.w    #12,C_HD_X(a1)
  27.     move.w    #60,C_HD_Y(a1)
  28.     move.w    #40,C_MD_X1(a1)
  29.     move.w    #248,C_MD_X2(a1)
  30.     move.w    #48,C_MD_Y1(a1)
  31.     move.w    #240,C_MD_Y2(a1)
  32.     move.w    #9,C_SA_F(a1)
  33.     move.w    #8,C_SSA_F(a1)
  34.     move.l    #bob_motion,C_A_DT(a1)
  35.     move.l    #bob_display,C_PCG_D(a1)
  36.     move.l    #bob_move_data,C_JOY(a1)
  37.     move.l    #bob_attack_data,C_HIT_D(a1)
  38.     move.l    #bob_se_data,C_PCM_D(a1)
  39.  
  40.     move.w    #$0000,BG_CTRL            * âXâvâëâCâgò\Īénéeée
  41.     movea.l    #pcg_data+BOB,a4
  42.     movea.l    a2,a6
  43.     move.w    #3808-1,d1
  44. @@:
  45.     move.l    (a4)+,(a2)+
  46.     dbra    d1,@b
  47.     adda.l    #15744,a6
  48.     move.w    #160-1,d1
  49. @@:
  50.     move.l    (a4)+,(a6)+
  51.     dbra    d1,@b
  52.  
  53.     move.w    C_COL(a1),d1
  54.     add.w    d1,d1
  55.     add.w    d1,d1
  56.     lea.l    bob_palette,a4
  57.     movea.l    0(a4,d1.w),a4
  58.     move.w    #8-1,d1
  59. @@:
  60.     move.l    (a4)+,(a3)+
  61.     dbra    d1,@b
  62.  
  63.     move.w    #$0200,BG_CTRL            * âXâvâëâCâgò\Īéném
  64.     rts
  65. *---------------------------------------
  66. *    ò\Ī
  67. *
  68. bob_display:
  69.     move.w    C_M_F(a1),d0
  70.     add.w    d0,d0
  71.     move.w    display_tbl(pc,d0.w),d0
  72.     jmp    display_tbl(pc,d0.w)
  73. *---------------------------------------
  74.     .even
  75. display_tbl:
  76.     .dc.w    bob_move-display_tbl,bob_attack-display_tbl
  77.     .dc.w    bob_hit-display_tbl,bob_win-display_tbl,bob_g-display_tbl
  78.     .dc.w    bob_attack-display_tbl,bob_g-display_tbl,0
  79.     .dc.w    bob_attack-display_tbl,bob_attack-display_tbl
  80. *---------------------------------------
  81. bob_move:
  82.     move.w    C_CNT(a1),d0
  83.     add.w    d0,d0
  84.  
  85.     tst.w    C_LR_F(a1)
  86.     bne    @f
  87.     move.w    move_tbl_right(pc,d0.w),d0
  88.     jmp    move_tbl_right(pc,d0.w)
  89. @@:
  90.     move.w    move_tbl_left(pc,d0.w),d0
  91.     jmp    move_tbl_left(pc,d0.w)
  92. *---------------------------------------
  93.     .even
  94. move_tbl_left:
  95.     .dc.w    bob_n-move_tbl_left,bob_for-move_tbl_left
  96.     .dc.w    bob_back-move_tbl_left
  97. move_tbl_right:
  98.     .dc.w    bob_n-move_tbl_right,bob_back-move_tbl_right
  99.     .dc.w    bob_for-move_tbl_right
  100. *---------------------------------------
  101. bob_attack:
  102.     move.w    C_AK_F(a1),d0
  103.     add.w    d0,d0
  104.     move.w    d0,d1
  105.     add.w    d0,d0
  106.     add.w    d1,d0
  107.     move.w    C_AM_F(a1),d1
  108.     add.w    d1,d1
  109.     add.w    d1,d0
  110.     move.w    attack_tbl(pc,d0.w),d0
  111.     jmp    attack_tbl(pc,d0.w)
  112. *---------------------------------------
  113.     .even
  114. attack_tbl:
  115.     .dc.w    low_s-attack_tbl,low_a-attack_tbl,low_t-attack_tbl
  116.     .dc.w    mid_s-attack_tbl,mid_a-attack_tbl,mid_t-attack_tbl
  117.     .dc.w    high_s-attack_tbl,high_a-attack_tbl,high_t-attack_tbl
  118.     .dc.w    bob_ssa_a-attack_tbl,bob_ssa_a-attack_tbl,bob_ssa_a-attack_tbl
  119.     .dc.w    bob_ssa_s-attack_tbl,bob_ssa_a-attack_tbl,bob_ssa_t-attack_tbl
  120. *---------------------------------------
  121. *    ò╧Ég
  122. *
  123. bob_1:
  124.     move.w    #14,C_H_X(a1)
  125.     move.w    #32,C_H_Y(a1)
  126.     move.w    #28,C_HD_X(a1)
  127.     move.w    #60,C_HD_Y(a1)
  128.     move.w    #9,C_SA_F(a1)
  129.     move.w    #5,C_SSA_F(a1)
  130.     move.l    #bo2_motion,C_A_DT(a1)
  131.     move.l    #bo2_display,C_PCG_D(a1)
  132.     move.l    #bo2_move_data,C_JOY(a1)
  133.     move.l    #bo2_attack_data,C_HIT_D(a1)
  134.     move.l    #bo2_se_data,C_PCM_D(a1)
  135.     rts
  136. bob_2:
  137.     move.w    #6,C_H_X(a1)
  138.     move.w    #32,C_H_Y(a1)
  139.     move.w    #12,C_HD_X(a1)
  140.     move.w    #60,C_HD_Y(a1)
  141.     move.w    #9,C_SA_F(a1)
  142.     move.w    #8,C_SSA_F(a1)
  143.     move.l    #bob_motion,C_A_DT(a1)
  144.     move.l    #bob_display,C_PCG_D(a1)
  145.     move.l    #bob_move_data,C_JOY(a1)
  146.     move.l    #bob_attack_data,C_HIT_D(a1)
  147.     move.l    #bob_se_data,C_PCM_D(a1)
  148.     rts
  149. *---------------------------------------
  150. *    ò\Ī
  151. *
  152. bo2_display:
  153.     move.w    C_M_F(a1),d0
  154.     add.w    d0,d0
  155.     move.w    display_tbl2(pc,d0.w),d0
  156.     jmp    display_tbl2(pc,d0.w)
  157. *---------------------------------------
  158.     .even
  159. display_tbl2:
  160.     .dc.w    bo2_n-display_tbl2,bo2_attack-display_tbl2
  161.     .dc.w    bo2_hit-display_tbl2,bo2_g-display_tbl2,bo2_g-display_tbl2
  162.     .dc.w    bo2_attack-display_tbl2,bo2_g-display_tbl2,0
  163.     .dc.w    0,bo2_attack-display_tbl2
  164. *---------------------------------------
  165. bo2_attack:
  166.     move.w    C_AK_F(a1),d0
  167.     add.w    d0,d0
  168.     move.w    d0,d1
  169.     add.w    d0,d0
  170.     add.w    d1,d0
  171.     move.w    C_AM_F(a1),d1
  172.     add.w    d1,d1
  173.     add.w    d1,d0
  174.     move.w    attack_tbl2(pc,d0.w),d0
  175.     jmp    attack_tbl2(pc,d0.w)
  176. *---------------------------------------
  177.     .even
  178. attack_tbl2:
  179.     .dc.w    low2_s-attack_tbl2,low2_a-attack_tbl2,low2_s-attack_tbl2
  180.     .dc.w    mid2_s-attack_tbl2,mid2_a-attack_tbl2,mid2_t-attack_tbl2
  181.     .dc.w    high2-attack_tbl2,high2-attack_tbl2,high2-attack_tbl2
  182.     .dc.w    bo2_ssa-attack_tbl2,bo2_ssa-attack_tbl2,bo2_ssa-attack_tbl2
  183.     .dc.w    bo2_ssa-attack_tbl2,bo2_ssa-attack_tbl2,bo2_ssa-attack_tbl2
  184. *---------------------------------------
  185. bob_motion:
  186.     .dc.w    4,6,15
  187.     .dc.w    16,8,20
  188.     .dc.w    30,5,25
  189.     .dc.l    bob_1
  190.     .dc.w    0
  191.     .dc.w    50,50,50
  192. bob_attack_data:
  193.     .dc.w    16,-16,8,8,16,16,5,$0300,1,10
  194.     .dc.w    24,-8,16,8,32,16,30,$0300,1,15
  195.     .dc.w    40,-16,8,16,16,32,40,$0300,2,20
  196.     .dc.w    0,0,4,4,8,8,35,$0300,2,24
  197.     .dc.w    0,0,24,24,48,48,100,$0300,1,50
  198. bob_move_data:
  199.     .dc.w     0, 0
  200.     .dc.w     0,-2
  201.     .dc.w     0, 2
  202.     .dc.w     0, 0
  203.     .dc.w    -2, 0
  204.     .dc.w    -2,-2
  205.     .dc.w    -2, 2
  206.     .dc.w     0, 0
  207.     .dc.w     2, 0
  208.     .dc.w     2,-2
  209.     .dc.w     2, 2
  210. bo2_motion:
  211.     .dc.w    12,6,15
  212.     .dc.w    16,8,20
  213.     .dc.w    0,0,25
  214.     .dc.l    bob_2
  215.     .dc.w    0
  216.     .dc.w    0,0,50
  217. bo2_attack_data:
  218.     .dc.w    32,-8,16,8,32,16,10,$0300,1,10
  219.     .dc.w    40,-8,24,8,48,16,40,$0300,1,15
  220.     .dc.w    0,0,4,4,8,8,50,$0300,2,20
  221.     .dc.w    0,0,4,4,8,8,35,$0300,2,24
  222.     .dc.w    0,0,4,4,8,8,120,$0300,2,50
  223. bo2_move_data:
  224.     .dc.w     0, 0
  225.     .dc.w     0,-1
  226.     .dc.w     0, 1
  227.     .dc.w     0, 0
  228.     .dc.w    -1, 0
  229.     .dc.w    -1,-1
  230.     .dc.w    -1, 1
  231.     .dc.w     0, 0
  232.     .dc.w     1, 0
  233.     .dc.w     1,-1
  234.     .dc.w     1, 1
  235. bob_se_data:
  236.     .dc.l    adpcm_data+BOH            * ÄπìUîéÄnô«é`écéoébél
  237.     .dc.w    $b908
  238.     .dc.w    496
  239.     .dc.w    0
  240.     .dc.l    adpcm_data+BOH            * ÄπìUîéÄnô«é`écéoébél
  241.     .dc.w    $b904
  242.     .dc.w    496
  243.     .dc.w    0
  244.     .dc.l    adpcm_data+BOH            * ÄπìUîéÄnô«é`écéoébél
  245.     .dc.w    $f908
  246.     .dc.w    496
  247.     .dc.w    0
  248.     .dc.l    adpcm_data+GRID
  249.     .dc.w    $b908
  250.     .dc.w    2612
  251.     .dc.w    1
  252.     .dc.l    adpcm_data+BOH
  253.     .dc.w    $f900
  254.     .dc.w    496
  255.     .dc.w    1
  256.  
  257.     .dc.l    adpcm_data+GYOH
  258.     .dc.w    $f908
  259.     .dc.w    706
  260.     .dc.w    0
  261.     .dc.l    adpcm_data+GYOH
  262.     .dc.w    $f904
  263.     .dc.w    706
  264.     .dc.w    0
  265.     .dc.l    adpcm_data+GYOH
  266.     .dc.w    $f900
  267.     .dc.w    706
  268.     .dc.w    1
  269.     .dc.l    adpcm_data+GYOH
  270.     .dc.w    $f900
  271.     .dc.w    706
  272.     .dc.w    1
  273.     .dc.l    adpcm_data+GYOH
  274.     .dc.w    $f900
  275.     .dc.w    706
  276.     .dc.w    1
  277.  
  278.     .dc.l    adpcm_data+BOKAN
  279.     .dc.w    $f908
  280.     .dc.w    1014
  281.     .dc.w    2
  282.     .dc.l    adpcm_data+BOKAN
  283.     .dc.w    $f904
  284.     .dc.w    1014
  285.     .dc.w    2
  286.     .dc.l    adpcm_data+BOKAN
  287.     .dc.w    $f900
  288.     .dc.w    1014
  289.     .dc.w    3
  290.     .dc.l    adpcm_data+BOKAN
  291.     .dc.w    $f900
  292.     .dc.w    1014
  293.     .dc.w    3
  294.     .dc.l    adpcm_data+BOKAN
  295.     .dc.w    $f900
  296.     .dc.w    1014
  297.     .dc.w    3
  298.  
  299.     .dc.l    adpcm_data+KO            * éjéné`écéoébél
  300.     .dc.w    $f908
  301.     .dc.w    2880
  302.     .dc.w    4
  303.  
  304.     .dc.l    0                * Åƒé┐é`écéoébél
  305.     .dc.w    670
  306.  
  307. bo2_se_data:
  308.     .dc.l    adpcm_data+KAN03        * ÄπìUîéÄnô«é`écéoébél
  309.     .dc.w    $f900
  310.     .dc.w    500
  311.     .dc.w    0
  312.     .dc.l    adpcm_data+KAN03        * ÄπìUîéÄnô«é`écéoébél
  313.     .dc.w    $f900
  314.     .dc.w    500
  315.     .dc.w    0
  316.     .dc.l    adpcm_data+KAN04        * ÄπìUîéÄnô«é`écéoébél
  317.     .dc.w    $f900
  318.     .dc.w    700
  319.     .dc.w    0
  320.     .dc.l    adpcm_data+GRID
  321.     .dc.w    $b908
  322.     .dc.w    2612
  323.     .dc.w    1
  324.     .dc.l    adpcm_data+DOKA
  325.     .dc.w    $f900
  326.     .dc.w    1500
  327.     .dc.w    1
  328.  
  329.     .dc.l    0
  330.     .dc.l    0
  331.     .dc.w    0
  332.     .dc.l    adpcm_data+GYOH
  333.     .dc.w    $f900
  334.     .dc.w    706
  335.     .dc.w    1
  336.     .dc.l    0
  337.     .dc.l    0
  338.     .dc.w    0
  339.     .dc.l    adpcm_data+GYOH
  340.     .dc.w    $f900
  341.     .dc.w    706
  342.     .dc.w    1
  343.     .dc.l    adpcm_data+DOKA
  344.     .dc.w    $f900
  345.     .dc.w    1500
  346.     .dc.w    1
  347.  
  348.     .dc.l    adpcm_data+BOKAN
  349.     .dc.w    $f908
  350.     .dc.w    1014
  351.     .dc.w    2
  352.     .dc.l    adpcm_data+BOKAN
  353.     .dc.w    $f904
  354.     .dc.w    1014
  355.     .dc.w    2
  356.     .dc.l    adpcm_data+BOKAN
  357.     .dc.w    $f900
  358.     .dc.w    1014
  359.     .dc.w    3
  360.     .dc.l    adpcm_data+BOKAN
  361.     .dc.w    $f900
  362.     .dc.w    1014
  363.     .dc.w    3
  364.     .dc.l    adpcm_data+BOKAN
  365.     .dc.w    $f900
  366.     .dc.w    1014
  367.     .dc.w    3
  368.  
  369.     .dc.l    adpcm_data+KO            * éjéné`écéoébél
  370.     .dc.w    $f900
  371.     .dc.w    1440
  372.     .dc.w    4
  373.  
  374.     .dc.l    0                * Åƒé┐é`écéoébél
  375.     .dc.w    670
  376.  
  377. bob_palette:
  378.     .dc.l    pal_data+BOB_C,pal_data+BOB_C+32
  379. *---------------------------------------
  380.     .include    bob_n.inc
  381. *---------------------------------------
  382.     .include    bob_al.inc
  383. *---------------------------------------
  384.     .include    bob_am.inc
  385. *---------------------------------------
  386.     .include    bob_ah.inc
  387. *---------------------------------------
  388.     .include    bob_hwg.inc
  389. *---------------------------------------
  390.     .include    bob_ssa.inc
  391. *---------------------------------------
  392.     .end
  393.